home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf3.lha / R舂pytys / R舂pytys.Amos / R舂pytys.amosSourceCode
AMOS Source Code  |  1993-03-08  |  3KB  |  158 lines
  1. ' 31.5.95
  2.  
  3. PALKKI=100
  4. KORKEUS=225
  5.  
  6. Auto View Off 
  7.  
  8. If Prg Under
  9.    Bgrab 11
  10. Else 
  11.    Load "T:Pankki.abk",11
  12. End If 
  13. NAPPIS=Peek(Start(11))
  14. NAPPIS2=Peek(Start(11)+5)
  15. MUSAT=Peek(Start(11)+1)
  16.  
  17. Load "HF3:R�mpytys/R�mpytys.Abk"
  18. Load "HF3:R�mpytys/Sounds.Abk",5
  19.  
  20. Load "Hf3:r�mpytys/R�mpytysTausta.Abk",20
  21. Unpack 20 To 0
  22. Hide 
  23. Erase 20
  24. 'Double Buffer 
  25. Update 
  26. View 
  27. Bob 2,275*2,KORKEUS,2
  28. Bob 3,55*2,KORKEUS,2
  29.  
  30. If MUSAT
  31.    Track Load "hf3:R�mpytys/R�mpytysModule",7
  32. End If 
  33.  
  34. Sam Bank 5
  35. Sam Play 2
  36. Wait 550
  37.  
  38. If MUSAT
  39.    Track Play 7
  40. End If 
  41. DUUI:
  42.    If Bob Col(1) and Col(2) Then Goto NONEVER
  43.    If Bob Col(1) and Col(3) Then Goto NOOKEI
  44.  
  45.    Bob 1,2*(PALKKI+59),KORKEUS,1
  46.    Wait Vbl 
  47.    If NAPPIS2=2
  48.       TIKKU=0
  49.       A$=Inkey$
  50.       K=Key Shift
  51.       ' Up 
  52.       For A=7 To 15 Step 2
  53.       If Peek(Start(11)+A)<$80
  54.          If Key State(Peek(Start(11)+A))
  55.             Bset 2,TIKKU
  56.          End If 
  57.       Else 
  58.          If Peek(Start(11)+A)-$80=K
  59.             Bset 2,TIKKU
  60.          End If 
  61.       End If 
  62.       Next A
  63.       If PELAAJA2=0 and Btst(2,TIKKU)=0
  64.          Dec PALKKI
  65.          PELAAJA2=1
  66.       End If 
  67.       If PELAAJA2=1 and Btst(2,TIKKU)
  68.          Add PALKKI,-2
  69.          PELAAJA2=0
  70.       End If 
  71.    Else 
  72.       TIKKU=Joy(NAPPIS2)
  73.       If PELAAJA2=0 and Btst(2,TIKKU) or PELAAJA2=1 and Btst(3,TIKKU)
  74.          Add PALKKI,-2
  75.          Bchg 0,PELAAJA2
  76.       End If 
  77.    End If 
  78.    If NAPPIS=2
  79.       TIKKU=0
  80.       A$=Inkey$
  81.       K=Key Shift
  82.       ' Up 
  83.       For A=6 To 14 Step 2
  84.          If Peek(Start(11)+A)<$80
  85.             If Key State(Peek(Start(11)+A))
  86.                Bset 2,TIKKU
  87.             End If 
  88.          Else 
  89.             If Peek(Start(11)+A)-$80=K
  90.                Bset 2,TIKKU
  91.             End If 
  92.          End If 
  93.       Next A
  94.       If PELAAJA1=0 and Btst(2,TIKKU)=0
  95.          Inc PALKKI
  96.          PELAAJA1=1
  97.       End If 
  98.       If PELAAJA1=1 and Btst(2,TIKKU)
  99.          Add PALKKI,2
  100.          PELAAJA1=0
  101.       End If 
  102.    Else 
  103.       TIKKU=Joy(NAPPIS)
  104.       If PELAAJA1=0 and Btst(2,TIKKU) or PELAAJA1=1 and Btst(3,TIKKU)
  105.          Add PALKKI,2
  106.          Bchg 0,PELAAJA1
  107.       End If 
  108.    End If 
  109.  
  110.    If Inkey$<>""
  111.       If Key State(25)=-1
  112.          While Key State(25)=-1 : Wend 
  113.          While Key State(25)<>-1 : Wend 
  114.          While Key State(25)=-1 : Wend 
  115.       End If 
  116.       If Key State(2)
  117.          Add NAPPIS2,1,0 To 2
  118.          While Key State(2) : Wend 
  119.       End If 
  120.       If Key State(1)
  121.          Add NAPPIS,1,0 To 2
  122.          While Key State(1) : Wend 
  123.       End If 
  124.       If Key State(94) and DELAY>1 : Dec DELAY : While Key State(94)=-1 : Wend : End If 
  125.       If Key State(74) and DELAY<15 : Inc DELAY : While Key State(74)=-1 : Wend : End If 
  126.       If Key State(55)
  127.          If MUSAT
  128.             Erase 7
  129.          Else 
  130.             Track Load "hf3:R�mpytys/R�mpytysModule",7
  131.             Track Play 7
  132.          End If 
  133.          Bchg 0,MUSAT
  134.          While Key State(55)=-1 : Wend 
  135.       End If 
  136.    End If 
  137. Goto DUUI
  138. NONEVER:
  139. If MUSAT Then Erase 7
  140. Sam Play 1
  141. Wait 180
  142. Poke Start(11)+2,0
  143. Goto JEES
  144.  
  145. NOOKEI:
  146. Poke Start(11)+2,1
  147. Fade 10
  148. Wait 130
  149. JEES:
  150. Screen Close 0
  151. If Prg Under
  152.    Poke Start(11),NAPPIS
  153.    Poke Start(11)+5,NAPPIS2
  154.    Poke Start(11)+1,MUSAT
  155.    Bsend 11
  156. End If 
  157. Erase All 
  158. End